home *** CD-ROM | disk | FTP | other *** search
/ Workbench Add-On / Workbench Add-On - Volume 1.iso / Dev / Amiga-E / E_v3.2a / Src / Args / WbArg.e < prev   
Text File  |  1992-09-02  |  443b  |  16 lines
  1. /* reading the arguments when started from wb.
  2.    give this program a .info file, and shift-select some icons with it. */
  3.  
  4. MODULE 'workbench/startup'
  5.  
  6. PROC main()
  7.   DEF wb:PTR TO wbstartup, args:PTR TO wbarg, a
  8.   IF wbmessage=NIL                /* we got from cli */
  9.     WriteF('args = "\s"\n',arg)
  10.   ELSE                        /* from wb */
  11.     wb:=wbmessage
  12.     args:=wb.arglist
  13.     FOR a:=1 TO wb.numargs DO WriteF('wbarg #\d = "\s"\n',a,args[].name++)
  14.   ENDIF
  15. ENDPROC
  16.